home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 7 / Gekikoh Dennoh Club Vol. 7 (Japan).7z / Gekikoh Dennoh Club Vol. 7 (Japan) (Track 01).bin / ikap / graphic1 / bg_4 / bg_4adm.bas < prev    next >
BASIC Source File  |  1999-06-15  |  4KB  |  204 lines
  1. /*==== -: "BG_4_A.SP" ﾃﾞﾓﾌﾟﾛｸﾞﾗﾑ :- ====
  2. int i,j,k,pl,ky,pb_n=0
  3. int sc0,sc1,sc2,sc3
  4. dim char dat(255)
  5.  
  6. /*---- -: screen init. :- ----
  7. screen 0,1,1,1 : window(0,0,511,511)
  8. vpage(&B0000) : apage(0)
  9. sp_init() : sp_disp(0)
  10. print "しばらくお待ちください。"
  11. spfile_def("BG_4A.SP",0)
  12. palfile_def("BG_4A.PAL",1)
  13. for i=0 to 15
  14.     palet(i,sp_color(i,, 1))
  15. next
  16.  
  17. /*---- -: ｵｸ ｶﾗ ｼﾞｭﾝﾆ :- ----
  18. apage(3)
  19. fill(  0,  0,511,127,  0)
  20.  
  21. /* ｲﾁﾊﾞﾝ ｵｸ (ﾔﾏﾅﾐ ﾅﾄﾞ)
  22. for i=0 to 2
  23. for j=0 to 1
  24.     sp_pat(&H00+i*16+j,dat,1) : PAT_CNV()
  25.     put(j*16,128+i*16,j*16+15,143+i*16,dat)
  26.  
  27.     sp_pat(&H02+i*16+j,dat,1) : PAT_CNV()
  28.     put(32+j*16,128+i*16,47+j*16,143+i*16,dat)
  29. next
  30. next
  31.  
  32. /* ｼﾞｭｶｲ (ｺﾋﾟｰ)
  33. for i=0 to 47
  34. for j=0 to 31
  35.     pl=point( 32+((16+j) and 31),128+i)
  36.     if pl <> 0 then pset(j,176+i,pl)
  37.  
  38.     pl=point( 32+j,128+i)
  39.     if pl <> 0 then pset(j,160+i,pl)
  40. next
  41. next
  42.  
  43. /* ｺﾋﾟｰ
  44. for i=0 to 31
  45.     get(  i,128,  i,255,dat)
  46.     for j=0 to 15
  47.         put(j*32+i,128,j*32+i,255,dat)
  48.     next
  49. next
  50.  
  51. /* ｸﾓ
  52. /*for i=0 to 3
  53. /*for j=0 to 5
  54. /*    sp_pat(&H60+i*16+j,dat,1) : PAT_CNV()
  55. /*    put(j*16,64+i*16,j*16+15,79+i*16,dat)
  56. /*    put(128+j*16,56+i*16,128+j*16+15,71+i*16,dat)
  57. /*next
  58. /*next
  59. /*for i=0 to 3
  60. /*for j=0 to 3
  61. /*    sp_pat(&H6C+i*16+j,dat,1) : PAT_CNV()
  62. /*    put(96+j*16, 0+i*16,96+j*16+15,15+i*16,dat)
  63. /*    put(192+j*16, 0+i*16,192+j*16+15,15+i*16,dat)
  64. /*next
  65. /*next
  66.  
  67. /* ｺﾋﾟｰ
  68. /*for i=0 to 255
  69. /*    get(  i,  0,  i,127,dat)
  70. /*    put(256+i,  0,256+i,127,dat)
  71. /*next
  72.  
  73. /*----------------
  74. apage(2)
  75.  
  76. /* ｵｸ ｶﾗ ﾆﾊﾞﾝﾒ
  77. for i=0 to 3
  78. for j=0 to 3
  79.     sp_pat(&H04+i*16+j,dat,1) : PAT_CNV()
  80.     put(j*16,168+i*16,j*16+15,183+i*16,dat)
  81. next
  82. next
  83.  
  84. /* ｺﾋﾟｰ
  85. for i=0 to 63
  86.     get(  i,128,  i,255,dat)
  87.     for j=0 to 7
  88.         put(j*64+i,128,j*64+i,255,dat)
  89.     next
  90. next
  91.  
  92. /* ｸﾓ
  93. for i=0 to 3
  94. for j=0 to 3
  95.     sp_pat(&H68+i*16+j,dat,1) : PAT_CNV()
  96.     put(    j*16,64+i*16,    j*16+15,79+i*16,dat)
  97.     put( 96+j*16,64+i*16, 96+j*16+15,79+i*16,dat)
  98.     put(176+j*16,64+i*16,176+j*16+15,79+i*16,dat)
  99. next
  100. next
  101.  
  102. /* ｺﾋﾟｰ
  103. for i=0 to 255
  104.     get(  i,  0,  i,127,dat)
  105.     put(256+i,  0,256+i,127,dat)
  106. next
  107.  
  108. /*----------------
  109. apage(1)
  110.  
  111. /* ｵｸ ｶﾗ ｻﾝﾊﾞﾝﾒ
  112. for i=0 to 3
  113. for j=0 to 3
  114.     sp_pat(&H08+i*16+j,dat,1) : PAT_CNV()
  115.     put(j*16,176+i*16,j*16+15,191+i*16,dat)
  116. next
  117. next
  118.  
  119. /* ｺﾋﾟｰ
  120. for i=0 to 63
  121.     get(  i,128,  i,255,dat)
  122.     for j=0 to 7
  123.         put(j*64+i,128,j*64+i,255,dat)
  124.     next
  125. next
  126.  
  127. /* ｸﾓ
  128. for i=0 to 3
  129. for j=0 to 3
  130.     sp_pat(&H68+i*16+j,dat,1) : PAT_CNV()
  131.     put( 32+j*16, 0+i*16, 32+j*16+15,15+i*16,dat)
  132.     put(160+j*16, 0+i*16,160+j*16+15,15+i*16,dat)
  133. next
  134. next
  135.  
  136. /* ｺﾋﾟｰ
  137. for i=0 to 255
  138.     get(  i,  0,  i,127,dat)
  139.     put(256+i,  0,256+i,127,dat)
  140. next
  141.  
  142. /*----------------
  143. apage(0)
  144.  
  145. /* ｲﾁﾊﾞﾝ ﾃﾏｴ
  146. for i=0 to 3
  147. for j=0 to 3
  148.     sp_pat(&H0C+i*16+j,dat,1) : PAT_CNV()
  149.     put(j*16,192+i*16,j*16+15,207+i*16,dat)
  150. next
  151. next
  152.  
  153. /* ｺﾋﾟｰ
  154. for i=0 to 63
  155.     get(  i,128,  i,255,dat)
  156.     for j=0 to 7
  157.         put(j*64+i,128,j*64+i,255,dat)
  158.     next
  159. next
  160.  
  161. /*---- -: ｽｸﾛｰﾙ ｶｲｼ :- ----
  162. cls
  163. vpage(&B1111)
  164. color 15
  165. print " SPACE:ﾊﾟﾚｯﾄﾁｪﾝｼﾞ   ESC :ｼｭｳﾘｮｳ "
  166. color 0
  167. while 1
  168.     sc0=sc0+1 and 1023
  169.     sc1=sc1+1 and 2047
  170.     sc2=sc2+1 and 4095
  171.     sc3=sc3+1 and 8191
  172.  
  173.     ky=asc(inkey$(0))
  174.     if ky = &H1B then break
  175.     if ky = &H20 then PAL_CH()
  176.  
  177.     v_disp()
  178.     home(0,sc0 shr 1,0)
  179.     home(1,sc1 shr 2,0)
  180.     home(2,sc2 shr 3,0)
  181.     home(3,sc3 shr 4,0)
  182. endwhile
  183.  
  184. end
  185.  
  186. /*---- -: "put" ﾖｳ ﾃﾞｰﾀ ﾉ ﾍﾝｶﾝ :- ----
  187. func PAT_CNV()
  188.     int i
  189.  
  190.     for i=0 to 127
  191.         dat(i)=(dat(i shl 1) shl 4)+dat((i shl 1)+1)
  192.     next
  193. endfunc
  194.  
  195. /*---- -: palet change :- ----
  196. func PAL_CH()
  197.     int i
  198.  
  199.     pb_n=(pb_n+1) and 7
  200.     for i=0 to 15
  201.         palet(i,sp_color(i,,1+pb_n))
  202.     next
  203. endfunc
  204.